sollta 


ire 




octal 






n=64 






m=4 






/read : 


in mode' 


7 


begin. 


law 


1 n 




dac 


xrl 




dac 


raaxworth 




law 


storage n 




dap 


stack 




tyi 






swp 






sas 


(char rr 




jmp 


ent 


/generate ranc 


Lorn deck 


ran. 


jdp 


num 




dac 


card 




law 


storage 




dap 


zer 


zer. 


dzm 






idx 


zer 




sas 


(dzm storage 




jmp 


zer ^ 


bad. 


lac 


card 




rar 


Is 




xor 


(311071 
(311071 




add 




dac 


card 




and 


(3777YV 
(n 




raul 




add 


(storage 




dap 


. 1 




lio 






sni 


i 




jmp 


bad 




xct 


stack 




dap 


. 2 




lac 


stack 




dap 






idx 


stack 




isp 


xrl 




jmp 


bad 




jmp 


dlt 


/enter 


deck 




ent. 


jdp 


num 




add 


(storage-1 


stack. 


dap 






dap 


.+2 




lac 


stack 




dap 






idx 


stack 




isp 


xrl 




jmp 


ent 


/print 


out dec 


Ik 


dlt. 


dzm 


eye 




law 


storage n 




Jdp 


out 



/initialize ik 



recur, dzm 1 stack 

/is i<n? 

test, idx eye 

sad dep 

jmp stp 
cys> lac i stack 

and (777 

sub (m 

sma 

jrap dead 

/compute and load to 

add (storage+ra 
dap xone 

xone, lac 

dap xto 



/test for 


kings 




sub 


(storage n n-ra 




spa 






Jmp 


key 


/k<3 


ell 






lac 


i stack 




rcr 


777 

(m 




sub 




sma 






jmp 


kdead 




add 


(m+i 




dac 


temp 




rcl 


777 




dac 


i stack 




law 


storage-1+n-m 




add 


temp 




dap 


xcard 




lac 


i xcard 




sub 


(storage n n-m 




spa 


i 




Jmp 


test 




Jmp 


Join 


/k>3 






kdead. 


cla 






rcl 


777 




add 


(1 




dac 


i stack 




Jmp 


test 


constants 






/check f or a £ 


) 


key. 


add 


(storage n n 




dac 


hole4 




idx 


i stack 




lac 


i hole4 




sub 


(m+m+storage 




spa 






Jmp 


test 




add 


(storage+m 




dap 


xcard 



/check for neighbors 
law i m 





dac 


xri 




law 


storage 




dap 


loop 


loop. 


lac 






sad 


hole4 




jmp 


test 




idx 


loop 




isp 


xri 




jmp 


loop 


/find vacated 


word (from) 


join. 


lac 


(dap best~3 




sub 


stack 




spa 






jmp 


overflow 


/change 


cards 






idx 


stack 


xcard. 


lac 






lio 


i xone 




dac 


i xone 




dap 


xfrom 




dio 


i xcard 


xf rom. 


lac 




xto. 


lio 






dac 


i xto 




dac 


i stack 




dio 


i xfrom 



/set flag and stack pointer 

idx stack 

dac flag 

law storage n 

jdp out 

jmp recur 
/test f la-g 
dead, lac flag 

sza i 

jmp popup 

/merit of solution 
dzm worth 





law storage n-m 




dap kng 


agn. 


law storage n n-m 




dap spt 


kng. 


law 


spt. 


sad 




jmp nat 




idx spt 




sas (sad storage n n 




jmp kng 


mor. 


idx kng 




sas (law storage n 




jmp agn 




jmp val 


mat. 


idx worth 




law i m 




add kng 




dap crd 




law i m 




add spt 



crd, 



val^ 



/save if 



Id, 
st. 



dap 


pla 


law 




sas 




jmp 


mor 


idx 


worth 


law 


i m 


adm 


crd 


law 


i m 


adm 


pla 


sub 


(sas storage n m 


spa 




Jmp 


mor 


jmp 


cM 


lac 


worth 


sub 


maxworth 


spa 




Jmp 


popup 


it i£ 


5 the best 


lac 


worth 


sad 


(n-m 


O'mp 


ans 


dac 


HBxworth 


law 


storage 


dap 


Id 


law 


best 


dap 


St 


lac 




dac 




idx 


St 


idx 


Id 


sub 


stack 


and 


(7777 


sza 




Jmp 


Id 



/make sure that popup is possible 
popup, lac (dap storage n n 1 

sub stack 

spa i 

jmp ng 



/popup 


stack 






lac 


stack 




sub 


(1 




dap 


get 




sub 


Ti 




dap 


stack 




lac 


i stack 




rcr 


777 




rir 


777 




swp 






sni 






add 


( storage -1 




add 




dap 


pone 


get. 


lac 






dap 


pcard 


pone. 


lac 




pcard. 


lio 






dac 


i pcard 





dap pfrom 






swp 






dac i pone 






dap pto 




pfrom. 


lac 




pto. 


lio 






dac i pto 


dio i pfrom 




law storage n 






jdp out 






jmp test 




/end of job routines 




stp. 


idx eye 
lac (char re 
dac temp 
jmp end 




m> 


lac (char rb 
dac temp 
jmp end 




overflow. 


lac (char 
dac temp 
jmp end 


ro 


ans. 


lac (char ra 
dac temp 




end. 


lio temp 
jdp scp 
law storage n 
jdp out 
jmp end 




constants 






xrl,0 


deck,0 card,0 


ik,0 


dep,0 


eyc,0 




maxworth. 


to,0 


from,0 tf 


hole4,0 


flag,0 worth, 




xr2,0 






storage, 






size=3000 






storage+s 


ize/O 




best,0 






best+size, 


/o 




/printout 


routine 




tyo=jdp scp 




xxword , 







out. 







pi. 


dap xxword 
lac (300300 
dac de7-l 




cyl. 


rbt 

rir 9s 
spi i 
jmp lev 
lac eye 






repeat 6, cli 


rcl 3s t; 


lev. 


rbt 
rir 8s 
spi i 
jmp dek 
lio stack 
rir 8s 





temp,0 



dek. 



line. 



p2. 



stq. 



P3, 



cla 




rbt 


50 


rbt 




rir 


7s 


spl 


1 


jmp 


stq 


law 


i n>m 


dac 


xr2 


lac 


xxword 


dap 


xword 


law 


i m 


dac 


xrl 


lio 


(77 


tyo 




jdp 


ioc 


idx 


xword 


isp 


xri 


Jmp p2 


isp 


xr2 


Jmp 


line 


rbt 




rir 


6s 


spi 


1 


jmp p4 


lac 


(500 


dac 


dc7-l 


lac 


stack 


dap xword 


lac 


i xword 


cli 




rcl 


9s 


tyo 




rcl 


9s 


tyo 




law 


i i 


adm xwoM 


Odp 


ioc 


law 


i 1 


adm xword 


sub 


stack 



p^. 



add (dap-lac 60 

lio (77 

tyo 

spa i 

jmp p3 
rbt 
rir 5s 
spi 

jmp 1 out 
rll Is 
spi i 
Jmp pi 
rbt 
rlr 4s 

spi 

jmp .-3 
jmp i out 

/card printing routine 
ioc, 

xword , lac 

add (mxtab - storage 

cli 
swp 
ril 1 
div (m 
hit 

dap xchar 
swp 

add (tac 
dap . 1 
lio 
tyo 
xchar, lac 

repeat 3} rcl 6s 

rar 77 

swp 

tyo 

jmp i ioc 

/this converts tyo' s into scope calls 
scp, 

dac ac 

dio io 

swp 

jdp dw 

lac ac 

lio io 

jmp i scp 

/table of card names 



tyo 



ac, 
io, 
tab. 



tac. 









1=2 

repeat 10, 

0120 

f lexo j 

f lexo q 

f lexo k 

char ms 34 

char mh 35 



1=1+1 



num. 



frm. 



char md 3! 


chai 


* mc 3^ 


adlr 



ig roui 


tyi 




sni 




jmp 


• -2 


cla 




ril 


777 


ril 


77 


rcl 


7 


tyi 




sni 


i 


Jmp 


frm 


jmp 


i num 



/G]n3.racter display subroutine 

dw, 

and (77 
sal 1 

add dto 

dap do 
do, lio • 

spi 

jmp i do 

idx do 

dzm dm 

law i 21 
da, dac dt 

dac dc 
dn, lac dm 

sub (406007 

and (407007 

spa 

add (401000 

dac dm 

ril 1 

spi 

jmp dx 
dy, isp dc 

jmp dn 

lio i do 

law i 22 

sas dt 

jmp da 
ds, law 6 

add dc7-l 

and (-1000 

dac dc7-l 
dz, jmp i dw 

dx, dio dq 

add dc7--l 
lia 

rar 9s 
dpy-i 200 
lio dq 
Jmp dy 



dtt. 


jmp ds 


/space 




dto. 


dtt 








7 


360000 


/}- 




305215 


31143 


/?- 




105014 


31133 


/3 




36100 


217704 


/^ 




13711^ 


631130 


/5 




175114 


231131 


/6 




1610 


620501 


/7 




155114 


231133 


^P 




15114 


231137 


/9 














jmp i dw 





/stop code 




51253 


142404 


/pointer 


































175014 


30137 


^9 




100200 


200401 


// 




115114 


231131 


^s 




2017 


760100 


> 




177004 


410037 


/u 




76404 


4o4oi7 


/y 




177003 


410037 


/w 




306240 


602461 


A 




6047 


6oo4oi 


/y 




303214 


630541 


A 














6 





/, 




jmp 1 dw 





Alack 




jmp 1 dw 





Aed 


dc7. 


law 77 


lor dc7~l 






add . 2 


orap ds 2 





/tab 



1 

101004 

376101 

377004 

376 oeo 

376040 

175014 

376110 

175015 

376111 





20100 

1012 

2010 

342 







410077 

504240 

ioo4o 

500277 

602077 

30137 

221103 

24157 

225143 





201004 

43400 

420100 
501 00 




370221 


22276 


37711^ 


231133 


175014 


30121 


377014 


30137 


377114 


631140 


376110 


621100 


175015 


32131 


376100 


601077 


1017 


370100 


Jrap 1 dw 





4 





jmp 1 dw 





jmp i dw 











777000 




lac dc7-l 




sub (12000 


and ,-3 




add (500 




dac dc7-l 




jrap i dw 




variables 




constants 




start 





/• 
/J 

/m 
/o 

/r 



/- 
/( 



/a 
/b 

/e 

/g 

/h 

/i 
/down 

/up 
/back 



